REM #######################################################
REM #
REM # FOR IBM AT (5170) WITH IBM BIOS
REM #
REM # Removes '161 - System Options Not Set'
REM # error after dead battery replacement
REM #
REM #             BIOS = Third: 11/15/85
REM #   Floppy drive A = 1.2 MB
REM #   Floppy drive B = 1.2 MB
REM #     Hard drive C = 20
REM #     Hard drive D = None
REM #          Display = Mono
REM #      Coprocessor = Not installed
REM #      Base memory = 512 KB
REM # Expansion memory = 128 KB
REM # 
REM #######################################################
REM
REM +--------------------------------------------------+
REM |                                                  |
REM | PART 1 OF 2  -  HARDWARE                         |
REM |                                                  |
REM +--------------------------------------------------+
REM
REM ----------------------
REM Zero the checksummed area
for x = 14 to 45: out 112,x: out 113,0: next
REM ----------------------
REM Floppy drives
out 112,16
out 113,34
REM ----------------------
REM Hard drives
out 112,18
out 113,240
out 112,25
out 113,20
REM ----------------------
REM Display / coprocessor / floppy count
out 112,20
out 113,113
REM ----------------------
REM Base memory
out 112,21
out 113,0
out 112,22
out 113,2
REM ----------------------
REM Expansion memory
out 112,23
out 113,128
out 112,24
out 113,0
REM ----------------------
REM Checksum
out 112,46
out 113,2
out 112,47
out 113,25
REM
REM   END OF PART 1
REM
REM
REM +--------------------------------------------------+
REM |                                                  |
REM | PART 2 OF 2  -  CLOCK (DATE/TIME)                |
REM |                                                  |
REM | If part 1 done, but not this part, the following |
REM | error will be seen on reboot:                    |
REM |         '163 - Time & Date Not Set'              |
REM |                                                  |
REM +--------------------------------------------------+
REM
REM ----------------------
REM Initialise A/B/C/D registers
REM and prepare for imminent setting of the clock
out 112,10
out 113,38
out 112,11
out 113,130
out 112,12
a = inp(113)
out 112,13
a = inp(113)
REM ----------------------
REM Set hour:minute:second to 19:00:00
out 112,0
out 113,0
out 112,2
out 113,0
out 112,4
out 113,25
REM ----------------------
REM Set day of week to 3 (1=Sunday)
out 112,6
out 113,3
REM ----------------------
REM Set date to 04Jun2013
out 112,7
out 113,4
out 112,8
out 113,6
out 112,9
out 113,19
out 112,50
out 113,32
REM ----------------------
REM Clock has been set - enable updates
out 112,11
out 113,2
REM
REM ----------------------
REM
REM   END OF PART 2
REM